; Mame Installer script, Version 1.1, Made by Triumph using InstallerFX !
(if (= x 1) (welcome))

(onerror (CLEANUP))

; Stop InstallerFX !
(procedure CLEANUP
    (delete "t:MameAnim")
    (delete "t:MameAnim.prefs")
    (delete "t:MameLogo")
    (delete "t:MameLogo.prefs")
    (delete "t:Background")
    (delete "t:Background.prefs")
) ; CLEANUP

(set @user-level 0)

;(set Opt 3)
(complete 0)

(copyfiles
	(source "InstallerFX/Background_DARK")
	(dest "t:")
	(nogauge)
	(newname "Background")
)

(copyfiles
	(source "InstallerFX/Background.prefs")
	(nogauge)
	(dest "t:")
	(newname "Background.prefs")
)
(complete 5)

(copyfiles
	(source "InstallerFX/MameLogo")
	(nogauge)
	(dest "t:")
	(newname "MameLogo")
)

(copyfiles
	(source "InstallerFX/MameLogo.prefs")
	(nogauge)
	(dest "t:")
	(newname "MameLogo.prefs")
)
(complete 10)

(copyfiles
	(source "InstallerFX/Mameanim")
	(nogauge)
	(dest "t:")
	(newname "MameAnim")
)

(copyfiles
	(source "InstallerFX/Mameanim.prefs")
	(nogauge)
	(dest "t:")
	(newname "MameAnim.prefs")
)

(complete 20)

(run "run InstallerFX/InstallerFX t:Background")

(set @user-level 2)

(run "wait 2")
; Waiting for InstallerFX to finished Background Picture!
(complete 25)

(run "run InstallerFX/InstallerFX t:Mamelogo")

(run "wait 2")

(run "run InstallerFX/InstallerFX t:MameAnim")
(complete 30)
(
     (set Mame_dest
        (tackon
        (askdir
        (prompt "Where do you want MAME to be installed? (A drawer WILL be created there.)")
        (help @askdir-help)
        (default @default-dest)
        )"Mame")
        )
	    (makedir Mame_dest (infos))
		(makedir (tackon Mame_dest "cfg"))
		(makedir (tackon Mame_dest "hi"))
		(makedir (tackon Mame_dest "roms"))
		(makedir (tackon Mame_dest "samples"))
		(copyfiles
			(prompt "Copying all Files ?")
			(help @copyfiles-help)
			(source "mame/")
			(dest Mame_dest)
			(pattern "#?")
			(infos)
			(files)
			(confirm)
)
)

(complete 70)

(copyfiles
	(source "InstallerFX/Select_Icon.prefs")
	(nogauge)
	(dest "t:")
	(newname "MameLogo.prefs")
)

(copyfiles
	(source "InstallerFX/Select_Icon")
	(nogauge)
	(dest "t:")
	(newname "MameLogo")
)
(complete 75)

(run "wait 1")

(set Icon
	(askchoice
		(prompt "Select default Icon for tooltype")
		(help @askchoice-help)
		(choices "256 Colors (NewIcons) by Triumph""    MagicWB by Andrea Dezzani" "  4 Colors by Craig Howard" "  8 Colors (MWB) by Craig Howard" " 16 Colors (NewIcons) by Craig Howard")
		(default 0)
	)
)
(complete 80)

(if (exists "mame/mame030" (noreq)) (set MameIcon_name "mame030.info"))
(if (exists "mame/mame040" (noreq)) (set MameIcon_name "mame040.info"))

(if (= Icon 0)
 (copyfiles
	(source "Icons/256 Colors.info")
	(dest Mame_dest)
	(newname MameIcon_name)
)
)
(if (= Icon 0)
 (copyfiles
	(source "Icons/256 Colors.info")
	(dest "ENV:Sys/")
	(newname "def_mame.info")
)
)
(if (= Icon 0)
 (copyfiles
	(source "Icons/256 Colors.info")
	(dest "ENVArc:Sys/")
	(newname "def_mame.info")
)
)

(if (= Icon 1)
 (copyfiles
	(source "Icons/MagicWB.info")
	(dest Mame_dest)
	(newname MameIcon_name)
)
)
(if (= Icon 1)
 (copyfiles
	(source "Icons/MagicWB.info")
	(dest "ENV:Sys/")
	(newname "def_mame.info")
)
)
(if (= Icon 1)
 (copyfiles
	(source "Icons/MagicWB.info")
	(dest "ENVArc:Sys/")
	(newname "def_mame.info")
)
)

(if (= Icon 2)
 (copyfiles
	(source "Icons/4 Colors.info")
	(dest Mame_dest)
	(newname MameIcon_name)
)
)
(if (= Icon 2)
 (copyfiles
	(source "Icons/4 Colors.info")
	(dest "ENV:Sys/")
	(newname "def_mame.info")
)
)

(if (= Icon 2)
 (copyfiles
	(source "Icons/4 Colors.info")
	(dest "ENVArc:Sys/")
	(newname "def_mame.info")
)
)

(if (= Icon 3)
 (copyfiles
	(source "Icons/8 Colors.info")
	(dest Mame_dest)
	(newname MameIcon_name)
)
)
(if (= Icon 3)
 (copyfiles
	(source "Icons/8 Colors.info")
	(dest "ENV:Sys/")
	(newname "def_mame.info")
)
)
(if (= Icon 3)
 (copyfiles
	(source "Icons/8 Colors.info")
	(dest "ENVArc:Sys/")
	(newname "def_mame.info")
)
)

(if (= Icon 4)
 (copyfiles
	(source "Icons/16 Colors.info")
	(dest Mame_dest)
	(newname MameIcon_name)
)
)
(if (= Icon 4)
 (copyfiles
	(source "Icons/16 Colors.info")
	(dest "ENV:Sys/")
	(newname "def_mame.info")
)
)
(if (= Icon 4)
 (copyfiles
	(source "Icons/16 Colors.info")
	(dest "ENVArc:Sys/")
	(newname "def_mame.info")
)
)

(run "run sys:utilities/multiview mame/readme.amiga")

(complete 100)
(CLEANUP)
(exit)
